LPA MacPROLOG TM 2,0 


Environment Guide 


interr 











E clicked 
button 


© framed picture 


íì 


box 






offset_box 
ÉS icon 


y text 
= mdialog 

= abort 
redraw/queen = o 
.haive permute rz get offset CET. 

y - 

is 
E) ++ 





box 

offset box 
gensym 

framed picture 
move queen 


add pic 


9 del pic num 


white 
fillbox 


draw pic 


naive permute([], [], Row, Speed, Win). 
naive permute(Cols, [Col|Final], Row, Speed, Win) :- 


remove(Col, Cols, Rest), 
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